unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Btnx_1: TButton;
    Btnv_1: TButton;
    Btnv_2: TButton;
    procedure Btnx_1Click(Sender: TObject);
    procedure Btnv_1Click(Sender: TObject);
    procedure Btnv_2Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

uses
  MD5,Class_KzDebug,Class_KzUtils;

{$R *.dfm}

procedure TForm1.Btnx_1Click(Sender: TObject);
var
  Origin:string;
begin
  Origin:='161-{078873A2-F2A7-11E3-A427-C15AB279B48E}{BF0D0132-0033-11E4-9549-A4B3D12742F5}'
         +'{E516A732-0503-11DC-B263-EE00020A4A7E}{18B1BAAB-8883-46BA-B84F-06AA7896169D}'
         +'{6F21DA3D-8E32-11DB-B4EE-FBA11D8B4FE3}{CCF64081-BEE6-4E5E-A9C5-0594C9DDDD25}'
         +'{9A7912AD-C2E2-4AD4-86D9-A38DE0D20D3F}{22DFB721-F1DD-11E3-816E-D1A7F975E4D6}'
         +'{D0294479-7BFB-11E3-8A20-8611E165C728}{810091CB-F39B-11DB-AFE4-A9506F9D5976}'
         +'{E0CAF8B6-F3B5-11DB-9D26-E91633DA1F09}{7841EE42-F1DD-11E3-816E-D1A7F975E4D6}'
         +'{02AEA059-F29E-11E3-A427-C15AB279B48E}{42777DEE-3D8A-11DB-8914-F110BE01C4C4}'
         +'{A27CE9DB-F3BF-11DB-9D26-E91633DA1F09}{BFD8FA9C-F39B-11DB-AFE4-A9506F9D5976}';
  ShowMessage(LowerCase(StrToMD5(Origin)));
end;

procedure TForm1.Btnv_1Click(Sender: TObject);
begin
  KzDebug.FileFmt('%S:%S',[self.ClassName,StrToMD5('kazarus')]);
end;

procedure TForm1.Btnv_2Click(Sender: TObject);
begin
  TKzUtils.Explore;
end;

end.
